home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / printing / virtua / timing.frm < prev    next >
Text File  |  1994-10-17  |  3KB  |  107 lines
  1. VERSION 2.00
  2. Begin Form timing 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Timing"
  6.    ClientHeight    =   2040
  7.    ClientLeft      =   3495
  8.    ClientTop       =   2490
  9.    ClientWidth     =   3210
  10.    Height          =   2475
  11.    Left            =   3420
  12.    LinkTopic       =   "Form5"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2040
  16.    ScaleWidth      =   3210
  17.    Top             =   2130
  18.    Width           =   3360
  19.    Begin CommandButton btnOK 
  20.       Caption         =   "OK"
  21.       Height          =   375
  22.       Left            =   1080
  23.       TabIndex        =   6
  24.       Top             =   1440
  25.       Width           =   1095
  26.    End
  27.    Begin Label Label2 
  28.       Alignment       =   1  'Right Justify
  29.       BackColor       =   &H00C0C0C0&
  30.       BorderStyle     =   1  'Fixed Single
  31.       Caption         =   "Label2"
  32.       Height          =   255
  33.       Index           =   2
  34.       Left            =   1680
  35.       TabIndex        =   5
  36.       Top             =   960
  37.       Width           =   1000
  38.    End
  39.    Begin Label Label2 
  40.       Alignment       =   1  'Right Justify
  41.       BackColor       =   &H00C0C0C0&
  42.       BorderStyle     =   1  'Fixed Single
  43.       Caption         =   "Label2"
  44.       Height          =   255
  45.       Index           =   1
  46.       Left            =   1680
  47.       TabIndex        =   4
  48.       Top             =   600
  49.       Width           =   1000
  50.    End
  51.    Begin Label Label2 
  52.       Alignment       =   1  'Right Justify
  53.       BackColor       =   &H00C0C0C0&
  54.       BorderStyle     =   1  'Fixed Single
  55.       Caption         =   "Label2"
  56.       Height          =   255
  57.       Index           =   0
  58.       Left            =   1680
  59.       TabIndex        =   3
  60.       Top             =   240
  61.       Width           =   1000
  62.    End
  63.    Begin Label Label1 
  64.       AutoSize        =   -1  'True
  65.       BackColor       =   &H00C0C0C0&
  66.       Caption         =   "Display Time:"
  67.       Height          =   195
  68.       Index           =   2
  69.       Left            =   480
  70.       TabIndex        =   2
  71.       Top             =   600
  72.       Width           =   1155
  73.    End
  74.    Begin Label Label1 
  75.       AutoSize        =   -1  'True
  76.       BackColor       =   &H00C0C0C0&
  77.       Caption         =   "# Records:"
  78.       Height          =   195
  79.       Index           =   1
  80.       Left            =   480
  81.       TabIndex        =   1
  82.       Top             =   960
  83.       Width           =   960
  84.    End
  85.    Begin Label Label1 
  86.       AutoSize        =   -1  'True
  87.       BackColor       =   &H00C0C0C0&
  88.       Caption         =   "Query Time:"
  89.       Height          =   195
  90.       Index           =   0
  91.       Left            =   480
  92.       TabIndex        =   0
  93.       Top             =   240
  94.       Width           =   1035
  95.    End
  96. End
  97. Sub btnOK_Click ()
  98.     Unload timing
  99. End Sub
  100.  
  101. Sub Form_Load ()
  102.     label2(0).Caption = Format$(qTime / 1000, "##0.00")
  103.     label2(1).Caption = Format$(pTime / 1000, "##0.00")
  104.     label2(2).Caption = gDS.RecordCount
  105. End Sub
  106.  
  107.